#!/usr/bin/perl
#Programmer: Rory Carmichael
#Purpose: switch up and store the given directory files

my @targets = `ls *.fasta`;
foreach (@targets) {
	chomp;
	`./rename_seqs.pl $_`;
}
